home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 5
/
64er_Magazin_Sonderheft_05_86-05_1986_Markt__Technik_de.d64
/
restore x-demo
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
719b
|
41 lines
1 rem **********************
2 rem * demo *
3 rem * subroutine/restore *
4 rem **********************
5 print"[147] taste druecken!"
6 print:print
10 x=int(rnd(ti)*3)+1
20 onxgosub1000,2000,3000
25 poke65,peek(122):poke66,peek(123)
30 reada$:printa$
50 data"hauptprogramm"
100 goto10
999 :
1000 rem *** subroutine 1 ***
1005 :
1010 poke65,peek(122):poke66,peek(123)
1020 fori=1to4:reada:printa;:next
1030 reada$:printa$;
1040 poke198,0:wait198,1
1050 data1,11,111,1111,"up 1 "
1060 return
1070 :
2000 rem *** subroutine 2 ***
2005 :
2010 poke65,peek(122):poke66,peek(123)
2020 fori=1to4:reada:printa;:next
2030 reada$:printa$;
2040 poke198,0:wait198,1
2050 data2,22,222,2222,"up 2 "
2060 return
2070 :
3000 rem *** subroutine 3 ***
3005 :
3010 poke65,peek(122):poke66,peek(123)
3020 fori=1to4:reada:printa;:next
3030 reada$:printa$;
3040 poke198,0:wait198,1
3050 data3,33,333,3333,"up 3 "
3060 return
3070 :